home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / calendar.arc / CALD.DDS < prev    next >
Text File  |  1991-12-04  |  3KB  |  48 lines
  1.      A*            14:05:10    WORMELL     REL-R08M00  5714-UT1
  2.      A*TITLE CALD     - Calendar Program
  3.      A**********************************************************************
  4.      A*                                                                    *
  5.      A*      PROGRAM ID: CALD      DATE-WRITTEN: 02-21-87                  *
  6.      A*      WRITTEN BY: David J. Wormell                                  *
  7.      A*                  Salt Lake City, Utah                              *
  8.      A*                                                                    *
  9.      A*      Calendar Program                                              *
  10.      A*          CAL  - Calendar Command.                                  *
  11.      A*          CALR - RPG Program.                                       *
  12.      A*          CALD - Display File.                                      *
  13.      A*                                                                    *
  14.      A*  DATE          REVISIONS                                           *
  15.      A*  ----------    ------------------------------------------------    *
  16.      A*                                                                    *
  17.      A*                                                                    *
  18.      A**************************************************************************
  19.      A***   CALANDER PROGRAM
  20.      A**************************************************************************
  21.      A                                      DSPSIZ(24 80 *DS3)
  22.      A  *DS3                                MSGLOC(24)
  23.      A                                      PRINT(QPRINT.*LIBL)
  24.      A                                      CA01(01 'Exit')
  25.      A                                      HELP(93 'HELP KEY')
  26.      A          R CALDA
  27.      A*            14:05:10    WORMELL     REL-R08M00  5714-UT1
  28.      A                                      ROLLUP(91 'ROLL UP KEY')
  29.      A                                      ROLLDOWN(92 'ROLL DOWN KEY')
  30.      A                                      BLINK
  31.      A                                      PUTOVR
  32.      A            OUT          880A  O  7  1OVRDTA
  33.      A                                  1 23'T H R E E  M O N T H  C A L E N D -
  34.      A                                      A R'
  35.      A                                      DSPATR(HI)
  36.      A                                 19 24'Date: ....'
  37.      A            IDATE          6Y 0B 19 35EDTCDE(Y)
  38.      A                                      OVRDTA
  39.      A            DAYWK          9A  O  2  1OVRDTA
  40.      A            DATER         18A  O  3  1OVRDTA
  41.      A            CLOCK          4Y 0O  3 72EDTWRD('  :  ')
  42.      A                                      OVRDTA
  43.      A            $APDAY         2A  O  3 78OVRDTA
  44.      A                                 23  1'CMD'
  45.      A                                      DSPATR(HI)
  46.      A                                 23  6'1 - exit'
  47.      A                                 23 16'rollup  rolldown'
  48.